MENU TO w/SETKEY  Setkey() receives incorrect parameters.

  Clipper Version  1.03 dtd 09/15/90.

  Problem Statement

  The set key procedure does not receive the correct parameters for
  cproc, cline and, cvar.

  Cause

  Unknown.

  Work Around(s)

  1) Tech support at Nantucket suggests the following work around to be
     placed at the top of all setkey() procedures :

     if procname(3) == "__MENUTO"
       cproc := procname(4)
     else
       cproc := procname(3)
     endi

  2) The following alternative(s) have been suggested by a user.

     First create an #include file called BUGFIX.CH as follows:

       #define FIXCPROC   procname(if(procname(3)=='__MENUTO',4,3))
       #define FIXCLINE   procline(if(procname(3)=='__MENUTO',4,3))
       #define FIXCVAR    readvar()

     and modify your set key procedure by placing the following at the
     top of each procedure:

       cproc := FIXCPROC
       cline := FIXCLINE
       cvar  := FIXCVAR

                              OR (Combination of above.)

       #define FIXCPASS(x,y,z);
             x := procname(if(procname(3)=='__MENUTO',4,3)) ;;
             y := procline(if(procname(3)=='__MENUTO',4,3)) ;;
             z := readvar()

     Place the following at the top of setkey procedures:

       FIXCPASS(cproc,cline,cvar)